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MODULE SCANFILE ( 


[DENT = *VO4~000" 


BEGIN 
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} FACILITY: 


i AUTHOR: THOMAS G. DOPIRAK 
i MODIFIED BY: 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aempokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS "7 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


DYNAMIC BAD BLOCK UTILITY 


i ABSTRACT: 


THIS PROCESS EXAMINES FILES SUSPECTED OF CONTAINING BAD 
DISK BLOCKS. THOSE DISK BLOCKS VERIFIED TO BE BAD ARE ADDED 
TO THE BAD BLOCK FILE. THE OTHERS ARE RETURNED TO THE VOLUME 
: FOR REUSE. 
! ENVIRONMENT: 


VAX/VMS OPERATING SYSTEM, VERSION 1.0 
- CREATION DATE:5/16/78 


v0002 ACG0059 Andrew C. Goldstein, 
Fix repeated write/read test so it really repeats 


21-Aug-1979 20:45 
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| SANE E 15 15500-1984 ait 3: 3 AX-11 Bliss-32 V4.0- 235. 5° Page 2 


4-Sep-19 BADBLK.SRC SCANEI ILE.B3 (2) 
: 49 0048 1! 
5 650 004 1 i TABLE OF CONTENTS: 
; 1 050 1: 
; ¢ 0051 1 
: 005¢ 1 FORWARD ROUTINE 
; 54 0053 1 SCAN: NOVALUE ‘MAIN PROGRAM OF FILE PROCESSING LOGIC 
> 55 0054 1 GROUP_BLOCKTEST, iROUTINE TESTS 'GROUPS' OF BLOCKS 
; 56 0055 1 GROUP~RE TURN iEXAMINES A GROUP OF BLOCKS WHEN ERROR DETECTED 
: 57 00 : 1 CHECK” BADSTATUS, iDETERMINES WHETHER A STATUS INDICATES A BAD BLOCK 
; 58 0057 1 NORMAC_ COMPLETE: NOVALUE, iCALLED AFTER NORMAL PROCESSING OF A FILE 
: 59 0058 1 ERROR COMPLETE. NOVALUE, iCALLED AFTER ABNORMAL PROCESSING OF A FILE 
: 60 0059 1 TRUNTA iTRUNCATES A FILE CONTAINING NO BAD BLOCKS 
> 61 0060 1 TRUNCATE “BAD, iTRUNCATES A FILE CONTAINING A BAD BLOCK 
; 6¢ 0061 1 BLOCKTEST iTESTS AN INDIVIDUAL BLOCK 
; 6 006¢ 1 POSITION, fo_eoF, iACCESSES A FILE AND DISCOVERS ITS SIZE 
> 64 0063 1 DO_Q10W iDOES Q1OW'S ANS CHECKS STATUS 
: 65 0064 1 : ' 
: 66 0065 1 
: (67 0066 1! 
; «(68 0067 1 ! INCLUDE FILES: 
; «69 0068 1: 
: 70 0069 1 
Sega 0070 1 LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 
oe. 0071 1! 
: 73 0072 1 ! MACROS: 
; - 0073 1: 
: 75 0074 1 
: 76 0075 1 MACRO 
: 77 0076 1 DIRECTORY _ID= F IBLF 1BSu_ DIDI% 'STA DIRECTORY ID 
: 78 m 0077 1 CSTRINGL] = = (UPLIT “BYTE CECHARCOUNT (ZSTRINGCEREMAIN NING)), 
: 79 0078 1 NG(ZREMAINING)) )% 
: 80 0079 1 - 
>: BI 0080 1! 
;  B2 0081 1 i VARIOUS DEFINITIONS 
; | (83 00 : ii | 
: 84 0083 1 | 
: «85 0084 1 LITERAL 
> 86 0085 1 BLOCK_TEST_SIZE=15, ‘NUMBER OF BLOCKS IN A GROUP 
> «87 0086 1 GROUP~SIZE=BLOCK_TEST_SIZE*512, iNUMBER OF BYTES IN A FROUP 
: 88 0087 1 TRIALS_TO_SUC=3;~ iNUMBER OF TIMES A BLOCK MUST BE SUCCESSFULLY BE WRITTEN 
> 89 0088 1 iBEFORE ITS DECLARED NO BAD 
; 90 0089 1! 
: 91 0090 1 | OWN STORAGE: 
3 3 091 1: 
>: 9 092 1 
s &% 0093 1 OWN 
> #95 0094 1 
: 96 0095 1 ‘BLOCKS OF TEST DATA 
: 97 0096 1 
; 98 0097 1 bisk TEXT: VECTORCGROUP_SIZE, BYTE), 
; 23 0098 GROUP_TEST_DATA:VECTORTGROUP_SIZE.BYTE), 
: 101 $100 1 READ_FAIL ‘LOGICAL INDICATING IF GROUP FAILED ON READ 
: 108 101 1 TRu UNT BLOCK, iFIRST VBN ACTUALLY REMOVED IN TRUNCATE 
: 10 198 1 COUNT: INITIAL(O), iCOUNT OF BAD BLOCKS FOUND 
: 104 103 1 BRR Ine BLOCK, iFIRST VBN IN GROUP 
: 105 0104 1 LAST_BLOTK, ‘LAST BLOCK IN A GROUP 
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«LAST_BLOCK LSSU BLOCK_TEST_SIZE 


cL ges ARTING-BLOCK=1 
STARTING_BLOCK=.LAST_BLOCK=BLOCK_TEST_SIZE+1; 
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'® 
‘TEST GROUP OF BLOCKS 
‘ACTION DEPENDS UPON WHETHER ANY ‘BAD’ BLOCKS FOUND 
CASE ENECK BADSTATUS (GROUP _BLOCKTEST()) FROM NORMAL_STS TO BAD_STS OF 
CNORMAL _STSJ: ‘SUCCESSFUL TEST 


{CHECK TO SEE IF FINISHED 


ARaNLSS 


sss 


WV —OOONAU EWM OOO NAME WN AO Doo 


«STARTING_BLOCK EQLU 1 
HEN 


MMMINNININININININININNINNINININ = 


a 
OOOCCoCoooooooooooo 


BEGIN 
NORMAL _COMPLETE(); 
RETURN 


WN BWI ES BB NUS BB BWA BBWAA BB BWW NAW AAAI AAA 


. 
° 
. 
° 
. 
° 
2 
e 
. 
° 
2 
° 
a 
oO 
2 
° 
. 
o 
2 
e 
. 
° 
° 
o 
. 
° 
> 
oO 
a 
e 
. 
° 
7 
° 
2 
° 
. 
eo 
+ 
. 
. 
o 
. 
° 
. 
° 
. 
a 
eo 
7 
. 
e 
° 
° 
o 
© 
. 
é 
7 
o 
2 
e 
° 
. 
. 
7 
. 
a 
e 
° 
ta 
- 
e 
. 
° 
. 
° 
> 
° 
© 
* 
7 
a 
a 
° 
. 
° 
7 
° 
* 
e 
. 
° 
. 
o 
o 
* 
o 
° 
. 
o 
. 
° 
. 
eo 
. 
° 
2 
° 
. 
a 


2 
2 
2 
21 2 
22 2 END 
$5 021 SE 
2 O¢ LAST_BLOCK=.STARTING_BLOCK-1; 
$$ bg CERROR sts): | ‘ERROR BUT NOT BADBLOCK ERROR 
$5 035 ERROR _COMPLETE(); 
$$ O¢¢ RETURN 
$5 055 siete 
22 022 CBAD_STS): 'BADBLOCK FOUND,SCAN INDIVIDUAL BLOCKS 
$3 os¢ BEGIN 
23 098 NOT GROUP_RETURN() 
23 Os THEN 
234 023 BEGIN 
235 023 ERROR_COMPLETE(); 
236 0234 RETURN 
237 0235 3 
38 0236 
39 0 3 (.STARTING BLOCK EQLU 1) OR 
40 0238 (.TRUNC_BLOCK LEQ 1) 
41 0239 THEN 
42 0240 BEGIN 
4 0241 NORMAL _COMPLETE(); 
44 0 4g RETURN 
45 4 END 
4 44 ELSE 
4 45 LAST_BLOCK=.TRUNC_BLOCK=1 
48 0 $6 ND; 
49 4 TES; 
50 48 END 
51 0249 END; 
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04 A6 
0000v CF 
0000v ff 
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15 
15-5¢ 4 23:36:57 AX-11 Bliss-32 V4.0-7 
14-5 aah $7: 36: 3 BADBLK SREISCANF ILE .83 B32;1 
TITLE 
IDENT reliant 
.PSECT S$PLITS$,NOWRT,NOEXE,2 
00000040 00000 P.AAA: .LONG 64 
00000000" 00004 -ADDRESS F1B 
.PSECT SOWNS,NOEXE,2 
00000 DISK_TEXT: 
: 7680 
01£00 GROUP_TEST DATA: 
: 7680 
03C00 READ_FAIL: ‘ 
03C04 TRUNC_BLOCK: § 
00000000 03C08 BAD_COUNT: : 
03c0C STARTING BLOCK: s 
03¢10 spate , 
00000000 00000000 03c1 4 10sB: “LONG 0, 0 
O3C1C FIB: “BLKB 64 
ay STS= 0 
R_ STS= 1 
SAD OR res 2 
TRUE= 1 
FALSE= 0 
FIB_DESC= P.AAA 
~EXTRN ey beg CHANNEL 
EXTRN ACP _UCB 
EXTRN SET~ 
.PSECT SCODES,NOWRT,2 
007¢ 00000 ENTRY ave R2. R3,R4,R5,R6 
0000" CF 9E 00002 MOV STARING. BLO 
00 2¢ 0000 MOVCS #0, (SP)? #0. Noe. FIB 
10 Ab 00006 
00 FB 0001 CALLS #0, POSITION_TO_EOF 
50 €9 00015 BLBC 
04 A6 D1 00018 18 CMPL AST_BLOCK, #15 
05 i 9oic BGEQU 2$ 
01 DO O001E MOVL #1, STARTING_BLOCK 
05 11 00021 BRB $5" 
OE ¢3 0035 3s SUBL3 #14, LAST_BLOCK, STARTING_BLOCK 
Q FB 00 $ CALLS #0, GROUP“BLOCKTEST 
DD 0002D PUSHL 
gi FB 6 F CALLS #1, CHECK_BADSTATUS 
0 CF CASEL RO, #0, #2 
0006 0038 4$: WORD  5$-4$,- 


OO1A 


$-4$,- 


Page 


or 


3; Routine Size: 


04 A6 


04 A6 


114 bytes, 


15 
B15, -1984 23:36: AX-11 Bliss-32 V4.0-74 
° Ba fj 3 35 BADBLK.SRCJSCANF ILE.B32;1 


14-Sep-19 
6$-4$ 
01 | D oF 5$ CMPL STARTING BLOCK, #1 
13 00C BEQL 
66 1 f: one sues #1, STARTING_BLOCK, LAST_BLOCK 
0000v CF 6 fe Soca 6$ CALLS 40, on 
06 ES QO04F BLBS . 
0000v CF 0 fe $838 7$ neve #0, ERROR_COMPLETE 
01 66 D1 088 8$ CMPL TARTING_BLOCK, #1 
6 13 00058 BEQL 
01 FB AG OT Beg28 CMPL TRUNC BLOCK, #1 
68 14 00061 BGTR $ 
0000v CF 0 fe Babes 9$: gays #0, NORMAL _COMPLETE 
FB AG 01 C3 00069 108: SUBL3 #1, TRUNC_BLOCK, LAST_BLOCK 
A7 11 QO06F RB 1$ 
04 00071 11$: RET 


Routine Base: S$CODE$ + 0000 


o 
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15 
sss VERE HBE TEBE, WMGAL Mesa 


4.0 
BADBLK.SRCJSCANFILE.B 


4 f ROUTINE POSITION_TO_EOF= 

; : é 1 !46 

i 33 0 23 i FUNCTIONAL DESCRIPTION: 

: 259 8 55 1 ROUTINE INITIALIZES THE FIB, ACCESSES THE FILE WHOSE 
> 260 0 26 ii FID IS THE ACP_MAIL, AND DETERMINES THE FILES LENGTH 
; 61 0297 IN BLOCKS 

: re 0 59 1 | FORMAL PARAMETERS: 

> 264 60 1: 

; 265 oF NONE 

3 28 8} 1! 

: 26 0568 1 i IMPLICIT INPUTS: 

> 268 0264 1 

: 269 0 65 ; ACP_MAILCBBS$W_FIDJ: FILE ID OF SUSPECT FILE 

3 31 0367 IMPLICIT OUTPUTS: 

; ig 0269 1: LAST_BLOCK: TOTAL NUMBER OF BLOCKS IN FILE 

; 318 0270 FIB: "ASSORTED FIELDS SET BY 10$_ACCESS 

: 276 0278 1 | ROUTINE VALUE: 

: 277 0273 1! COMPLETION CODES: 

: 278 0274 1: 

: 279 0275 1: IF IO$_ACCESS FAILS THEN THAT CODE IS RETURNED 

> 280 0276 1! 

: 281 0277 1! SIDE EFFECTS: 

: Be 0278 1: 

: 28 0279 1: NONE 

> 284 0280 1: 

: 38 O58. 1 

; $89 $588 BEGIN 

: $86 0583 

> 290 0286 OWN 

: 291 287 STAT_BLOCK:VECTOR(5, WORD], ‘SPACE FOR FILE STATISTICS BLOCK 
: 44 0288 RETURNED BY IOS_ACCESS 
: 29 0289 ATTRIBUTES: VECTORC3) 

; 34 9290 INITIAL (ATRSC_STATBLK*16+10,STAT_BLOCK,0) 
Be BRE. 

: 98 0 34 iSET FILE ACCESS ATTRIBUTES 

: 300 0 %6 F IBLF IBSV_WRITEJ=1; 

: 301 029 F IBLF IB$V~TRUNCJ=1: 

; 4 0298 'e 

; 05 99 iPUSH FILE ID INTO FIB 

: 305 301 CHSMOVE (6,ACP_MAILCBBS$W_F1D),F IBLF IBSW_FIDJ); 

; 09 0308 'e 

; 08 0304 iOPEN THE SPECIFIED FILE AND GET ITS SIZE IN BLOCKS 

: 310 0306 DO_Q10W(10$_ACCESS+10$M_ACCESS,f 1B_DESC,0,0,0,ATTRIBUTES); 


-74 Page 
$3.1 . (5) 
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3; Routine Size: 


18.22 -1984 23:36: 
12-8 08=1 384 $7338: 


07 
08 2 !* 
09 iMOVE THE WORD SWAPPED VIRTUAL BLOCK NUMBER 
0 11 LAST_BLOCK<0,16>=.STAT_BLOCK(3); 
0 9 LAST~BLOCK<16, 16>=,STAT_BLOCKL2]; 
0314 RETURN TRUE 
0315 1 END; 
.PSECT 
O3€5C STAT_BLOCK: 
-BLKB 
03066 “BLKB 
0009000A 03C68 ATTRIBUTES: 
00000000" 03c6C 
00000000 03¢70 LONG 
-PSECT 
007c¢ 00000 POSITION 10, EOF 
56 0000" CF 9E 00002 MOVAB 
OD Ab 01 88 00007 BISB2 
23 Ab 01 88 0000B BISB 
10 Ab 00006 CF 06 28 0000F MOVC 
58 Ab OF 00016 PUSHAB 
7E 7C 00019 CLROQ 
7E 04 0001B CLRL 
0000" CF 9F 0001D USHAB 
7E 72 8F 9A 00021 MOVZBL 
0000v CF 06 FB 00025 CALLS 
56 52 a6 BO 0002A MOVW 
02 A6 50 Aé BO 00086 MOVW 
50 01 00 000 MOVL 
04 00036 RET 


55 bytes, Routine Base: S$CODE$ + 0072 


3 pred, Bliss-32 V4.0-74 
3 BADBLK.SRCJSCANF ILE .832;1 


SOWNS ,NOEXE ,2 


10 
2 


: 589834 
“ADDRESS STAT BLOCK 


SCODES,NOWRT 2 


Save R2,R3,R4,R5,R6 
LAST_BLOCK, R6 

#1, FIB+1 

#1. F1B+23 

#6, ACP_MAIL+12, FIB+4 
ATTRIBUTES 


1B 
11 
- DO_Q10W 
TAT_BCOCK+6, LAST_BLOCK 
ead nial LAST_BLOCK+2 
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a 
e- 
mm 


14-Sep-1984 11:54:33 BADBLK.SRCJSCANFILE.B 
1 3 1g 1 ROUTINE TRUNCATE (VBN) = 
: Q 18 1 '+4 
4 0 19 1} FUNCTIONAL DESCRIPTION: 
4 03 eo ROUTINE TRUNCATES OF THE END OF THE CURRENT FILE 
7 3 é 1 STARTING AT THE INDICATED BLOCK NUMBER. BECAUSE OF 
28 0323 1 CLUSTERING NOT ALL BLOCKS REQUESTED MAY BE TRUNCATED 
93 03 $1 LAST BLOCK TRUNCATED IS PLACED INTO TRUNC_BLOCK. 
31 0326 1] { FORMAL PARAMETERS: 
38 o3 es VBN: VIRTUAL BLOCK AT WHICH TO START TRUNCATE 
335 0330 1 ! IMPLICIT INPUTS: 
3 0331 1 
337 O33¢ 1 i NONE 
338 0333 1 
339 0334 1 | IMPLICIT OUTPUTS: 
340 0335 1! 
341 0336 1 | NONE 
342 0337 1: 
34 0338 1 | ROUTINE VALUE: 
344 0339 1 | COMPLETION CODES: 
345 0340 1! 
346 0341 1 STATUS OF I0$_MODIFY OPERATION IS RETURNED 
347 0342 1 i 
348 0343 1 | SIDE EFFECTS: 
349 0344 1 | 
350 0345 1: NONE 
351 0346 1 | 
352 0347 1 i-- 
353 0348 1 
354 0349 2 BEGIN 
355 0350 2 LOCAL 
356 0351 STATUS; 
357 O35¢ 
358 035 3 
359 0354 2 iSET BLOCK TO TRUNCATE AT 
360 0355 
361 0356 F IBLF IBSL_EXVBNJ=. VBN; 
362 0357 
63 0358 2 !« 
364 0359 iTRUNCATE A PIECE OFF OF FILE 
366 0361 STATUS=DO_Q10W(10$_MODIFY,FIB_DESC,0,0,0,0); 
67 036g ¢ is 
68 036 iCLEAR SIZE FIELD 
69 0364 
70 0365 F IBLF IBSL_EXSZ)=0; 
71 0366 
2 036 te 
23 0368 CHECK FOR ROUNDING FROM CLUSTERING 
75 $390 F 
76 0371 .VBN NEQ .F IBLF IBSL_EXVBN) 
77 0372 THEN 


—_—_—_—__—_—_ -- -——__—--—- ----- as ree 
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SCANF ILE 18-56 -1984 23:36: 
| WOe~000 12280071 3be 97:8 
; ve 8 ie TRUNC_BLOCK=.F IBCFIBSL_EXVBN) 
; 380 0375 TRUNC_BLOCK=.VBN; 
3 3e) 0376 
; 3 8 77 RETURN .STATUS 
: 38 8 
3; «384 0379 1 END; 
0004 00000 TRUNCATE: 
. WORD 
52 0000° CF 9E 0000 MOVAB 
62 04 AC 00 0000 MOVL 
7E 7C 00008 CLRQ 
7E 7C 0000D CLRQ 
0000° cf 9F OO000F PUSHAB 
6 DD 00013 PUSHL 
O000v CF 06 FB 00015 CALLS 
FC A2 D4 OOOTA CLRL 
62 04 AC D1 0001D CMPL 
05 13 00021 BEQL 
cc A2 62 00 00023 MOVL 
04 00027 RET 
cc A 04 AC 00 00028 1$ MOVL 
04 9002D RET 


; Routine Size: 46 bytes, Routine Base: S$CODES + O0A9 


7 AX-11 Blis $-26 V4.0-74 


:33 BADBLK.SRCISCANF ILE .B3 31 


#6, DO_Q10W 

F1B+24 

VBN, F1B+28 

F1B+28, TRUNC_BLOCK 
VBN, TRUNC_BLOCK 


0316 


0356 
0361 


0365 
0371 


0373 


0375 
0379 


| SCANF ILE 
| V04-0 

; #38 0380 
. on 
; 389 0 6 
; 390 0384 
; 391 Be52 
;: 0386 
; 39 tet 
> 394 0388 
; 395 0389 
; 0390 
; O33) 
; 398 6 3 
; wy 039 

; 400 0394 
: 401 0395 
: 40 0396 
; 40 0397 
: 404 0398 
: 405 0399 
; 406 0400 
: 407 0401 
; 408 0402 
; 409 0403 
; 410 0404 
: 411 0405 
s 412 0406 
; 413 0407 
3 414 0408 
> 415 0409 
; 416 0410 
3 417 0411 
; 418 0412 
3; 419 0413 
; 420 0414 
; 421 0415 
: 422 0416 
: 423 0417 
: 424 0418 
; 425 0419 
; 426 0420 
: 427 0421 
; 428 oh 3 
$ $$3 oh 

3; 430 0424 
: 431 Res? 
3 432: 0426 
3; 433 0427 
3; 434 0428 
: 4635 0429 
: 436 0430 
3; 437 0431 
; 438 043 

; 439 043 

: 449 0434 
: 4641 0435 
3 442 0436 


-_ 
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1$-sep-19 4 $3: 36:37 AX-11 Bliss-32 ys 0798 
14-Sep-1984 11:54:33 BADBLK.SRCISCANFILE.B32;1 
ROUTINE TRUNCATE_BAD(VBN) = 
'o¢ 
' FUNCTIONAL DESCRIPTION: 
TRUNCATE _BAD PERFORMS 2 TRUNCATIO OPERATIONS. 
ALL BLOCRS AFTER(HIGHER VBN'S) ARE RETURNED 
THE SYSTEM VIA A CALL TO TRUNCATE. THE CURRENT 
VBN KNOWN AS ‘"BAD' IS TRUNCATED OFF THE CURRE 
ND ONTO THE BAD BLOCK FILE. DUE TO CLUSTERING, MORE BLOCKS 4 
THAN REQUESTED MAY BE ADDED TO THE BAD BLOCK Fi D 
TRUNC_BLOCK IS SET TO THE LAST BLOCK ADDED. 


FORMAL PARAMETERS: 
VBN: VIRTUAL BLOCK NUMBER OF BLOCK TO MARK BAD 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
TRUNC_BLOCK: LAST BLOCK(LOWEST VBN) ADDED TO BAD BLOCK FILE 


ROUTINE VALUE: 
COMPLETION CODES: 


IF EITHER TRUNCATE OPERATION FAILS THEN THAT STATUS IF RETURNED 
SIDE EFFECTS: 


NONE 
BEGIN 
LOCAL 
STATUS; 


BAD_COUNT=.BAD_COUNT+1; 

if 

!TRUNCATE OFF GOOD PORTIONS OF FILE 
* ecattieemeat ai cata 


(STATUS NEQ SS$_NORMAL) AND 
(STATUS NEQ SS$_ENDOFFILE) 


N 
. RETURN .STATUS; 

'® 

iSET BLOCK TO TRUNCATE AT 
F IBLF IBSL_EXVBNJ=.VBN; 


'@ 
'NOTE RETURN IS TO BAD BLOCK FILE 


16 
SCANF ILE 1b-Sep-1984 23:36 
| ¥04~000 le-8ep-1986 11:54 
: 443 0437 
; Oe 0438 F IBLF 1BSV_MARKBADJ=1; 
3; 445 439 
: 466 0440 5 te 
; 44 O44] 2 ITRUNCATE A PIECE OFF OF FILL 
: 469 Beg STATUS=DO_Q10W(10$_MODIFY,FIB_DESC,0,0,0,0); 
: 450 044, 3 te 
> 45) 0445 5 iCLEAR SIZE FIELD 
; 45¢ 0446 
; 4s 0447 F IBLF IBSL_EXSZJ=0; 
: 454 0448 
: 455 0449 5 Is 
; 456 0450 5 iCHECK FOR ROUNDING FROM CLUSTERING 
: 457 0451 
> 458 0452 2 
> 459 045 .VBN NEQ .FIBCFIBSL_EXVBN] 
: 460 0454 5 
> 461 0455 35 TRUNC_BLOCK=.F IBLF IBSL_EXVBN] 
S462 0456 3 5 
; 0457 5 TRUNC_BLOCK=.VBN; 
: 464 0458 2 
: 465 0459 2 
: 466 0460 3 te 
ae? § 0461 2 iCLEAR MARK BAD INDICATOR 
468 0462 3 
> 469 0463 5  FIBCFIBSV_MARKBADI=0; 
> 470 0464 3 RETURN .STATUS 
; an 0465 92 
> 472 0466 1 END: 
0004 00000 TRUNCATE_BAD: 
52. 0000" “CF 9E 00002 HOVAB 
D0 A2 D6 00007 INCL 
7E 04 AC 01 C1 OOO0A ADDL3 
BF AF 01 FB OOOOF CALLS 
01 50 D1 00013 CMPL 
00000870 8F OF Oat boots PAPE 
3p 8) Ooote BNEG 
62 04 AC DO 00021 18 MOVL 
FB OAD 04 88 00095 B1SB2 
7E 7¢ 00029 CLRQ 
7 7¢ 00028 CLRQ 
0000" CF 9F 0009D PUSHAB 
6 DD 00031 PUSHL 
Oo00V CF § £8 00035 CALLS 
FC A2 D4 000 CLAL 
62 06 At D1 00038 CMPL 
| cc 88 0d o00e) fovt 
page 05 11 00045 BRB 


30 AX-11 Bliss-32 ate get 
:33 BADBLK.SRCJSCANFILE.B32;1 


#1," VBN, -(SP) 
#1, TRUNCATE 
STATUS, #1 


1 
STATUS, #2160 


F B DESC 

#6, DO_Q10W 
+24 

VEN, FIB+28 


£4B+28, TRUNC _BLOCK 


NnN=<cw 
CBO R 
Oo = 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Oe Se Oe & 
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Woot 000 12ageh= 188s FF ee ee eM othe ssbeuy tie os5s1 m in 
cc AQ 0¢ AC D0 00047 26: MOVL, BN, TRUNC BLOCK + 0657 
FB OAD 0% BA Qoo4c $$: BICB2 #4, ‘FB : 0468 


; Routine Size: 81 bytes, Routine Base: S$CODE$ + 0007 


F 16 
bet $ECRSSASRS EBREET WAMSALAP Lea HEd O23, 


: 674 0467 1 ROUTINE BLOCKTEST(VBN)= 

3; 475 0468 1 

; rth Be? 1 !4+ 

s 47 0470 1 ! FUNCTIONAL DESCRIPTION: 

: 478 0471 1! 

: 479 0472 1! THIS ROUTINE Tests ” SINGL — VIRTUAL BLOCK 

; 480 0473 1! FOR ‘BADNESS' UTINE READS THE BLOCK A NUMBER 

; 481 0474 1! F ines" SRE CKING FOR A DATA SENSITIVE CONDITION, AND THEN 
3 abe 0475 1! WRITES AND READS BACK THE WORST CASE PATTERN. UPON ANY 

3 ret peas : ABNORMAL CONDITION THE ROUTINE EXITS WITH THAT STATUS. 

; 485 478 1 | FORMAL PARAMETERS: 

> 486 479 1! 

: 487 0480 1! VBN: VIRTUAL BLOCK TO BE TESTED 

; 488 0481 1! 

3 re Bee : IMPLICIT INPUTS: 

: 491 0484 1! READ PAIL: A LOGICAL VARIABLE WHEN TRUE INDICATES THAT 
; 49 0485 1! GRO PRpLOCKTEST ENCOUNT ERED AN ERROR WHILE READING THE 
3; (49 0486 1! USER BATA ON THE ret GROUP. THIS DIRECTS BLOCKTEST 
3 $32 oe ' TO READ THE INDIVIDUAL BLOCKS BEFORE OVERWRITING THEM 
; 496 0489 1°! IMPLICIT OUTPUTS: 

; 497 0490 1! 

: 498 0491 1°! NONE 

3; 499 0492 1! 

: 500 0493 1 ! ROUTINE VALUE: 

: 501 0494 1 ! COMPLETION CODES: 

; 502 0495 1! 

: 505 0496 1! IF ANY Q1OW FAILS THEN ITS STATUS IS RETURNED 

: 504 0497 1! 

3; 505 0498 1 ! SIDE EFFECTS: 

: 506 0499 1! 

; 507 0500 1! NONE 

; 508 0501 1! 

; 509 0502 1 !-- 

s 310 0503 1 

s ST 0504 BEGIN 

- Sie 0505 

s 515 0506 LOCAL 

; 514 0507 2 STATUS; 

s $15 0508 2 

; 516 0509 '® 

s Sir 0510 'IF GROUP TEST FAILED IN DATA DEPENDENT MANNER 

; 518 0511 'READ THE BLOCK BEFORE OVER WRITING IT 

3; 519 pale 2 

; 520 051 

3 Sel 0514 -READ_FAIL 

3 256 g2!2 

3 252 b2i8 INCR TEST_INDEX FROM 1 TO TRIALS_TO_SUC DO 

; 352 g2i8 Nor (STATUS=D0_Q10W( 10$_READVBLK+10$M_INHRETRY,DISK_TEXT,512,.VBN,0,0)) 
: $27 0520 RETURN .STATUS; 

; 528 0521 

3 267 05 § 'e 

: 550 05 'BLOCK MUST PASS READ/WRITE TEST MULTIPLE BEFORE BEING MARKED GOOD 


16 
Scant LE 1$-Sep-1964 28:56:57 yaaett Bliss 32 y4.00763 | 


; 1 0524 
; 2 : 09 5 INCR TEST_INDEX FROM 1 TO TRIALS_TO_SUC DO 
Mt sss am 
; 3 > 03 § iWRITE TO THE INDICATED DISK BLOCK 
: §37 0530 
5 238 3 1 NOT (STATUS=D0_Q10W( 10$_WRITEVBLK+IO$M_INHRETRY,GROUP_TEST_DATA,512,.VBN,0,0)) 
; 540 05 é RETURN .STATUS; 
: 541 0534 
; 4¢ 0535 rr 
; 56 0536 iTRY AND READ IT BACK 
: 3e $834 
; 246 0958 4 NOT (STATUS=D0_Q10W( 10$_READVBLK+10$M_INHRETRY,DISK_TEXT,512,.VBN,0,0)) 
: 548 0541 RETURN .STATUS; 
: 549 O4¢ 
: 550 054 
; 551 0544 3 Ie 
; 23¢ 0545 ; iMAKE SURE ITS THE SAME 
: 327 pet$ 3 
: 555 0548 3 CHSNEQ(512,GROUP_TEST_DATA,512,DISK_TEXT) 
556 0549 3 
: 557 0550 3 RETURN SS$_PARITY 
s 5338 0551 2 END; 
; 559 055¢ 2 
: 560 055 : RETURN TRUE 
: 561 0554 
; 562 0555 1 END; 
OOFC 00000 BLOCKTEST: 
.WORD Save R2,R3,R4,R5,R6,R7 
57 0000v CF 9€ 0000 MOVAB 00 Q10W. R? 
56 0000' CF 9€ 0000 MOVAB DISK_TEXT, R6 
21 3c00 ¢6 €9 0000C BLBC  READ-FAIL, 2$ 
52 01 BO 00011 MOVL #1, TEST_INDEX 
7E 7C 90014 1$: CLRO 20s = ( §P) 
04 Ac bp 0016 PUSHL VBN 
7E 0200 8F 3C 00019 MOVZWL #512, -(SP) 
56 bd 0001 PUSHL 
7E 8031 BF 3C 999 0 MOVZWL #32817, -(SP) 
67 06 FB 00025 CALLS #6, DO. QI0W 
55 0 09 0028 MOVL RO, STATUS 
3D 55 €9 00028 BLBC STATUS 
E2 52 03 F3 000 AOBLEQ #3, TEST_INDEX, 18 
54 91 00 00 33 MOVL #1, TESTTINDEX 
— 7C 99 $ CLRO 2 = (§P) 
04 AC bp 0 0 7 PUSHL VV 
7E 9200 BF 3C OOO3A MOVZ2WL #512, -(SP) 
1E00 C6 9F 0003F USHAB GROUP_TEST_DATA 


H 16 
SCANF ILE 15-Sep-1984 23:36:57 AX-11 Bliss-32 V4.0-7 Page 17 
voen000 12-8ep= 1882 97:80:35 — PeADBLK SRETSCANE ILE 203351 9° 6a) 
3 8030 8F 3C 00043 MOVZWL #32816, =-(SP) : 
6 96 FB 00048 CALLS 4&6, DO_QI0 é 
55 0 00 gee MOVL RO, syaty : 
1A 55 2 0004E BLBC STATUS, 4$ : 
7E C 00051 CLRQ (SP) ; 0539 
04 AC gp 00053 PUSHL yen é 
7E 0200 8F 3C Fa MOVZWL #512, =(SP) 3 
56 bo 0058 PUSHL R F 
7E 8031 8F 3C 0005D MOVZWL O# oa a : 
67 06 FB Bones CALL ag’ 8 3 
55 50 DO 0006 MOVL rats § 
04 55 «E€8 Bee BLBS $ 3 
50 55 bY Se cE 4$: e's STarus: RO ; 0541 
46 1€00 6 0200 8F ro O006F 5$: CMPC3 #512, GROUP_TEST_DATA, DISK_TEXT + 0548 
06 13 00077 Seah : 
50 O1F4 8F 3C 00079 MOVZWL #500, RO ; 0550 
04 O0007E RET : 
B2 54 03 F3 OOO7F 6$: AOBLEQ #3, TEST_INDEX, 3$ : 0547 
50 01 DO 00083 MOVL #1, RO ; 0553 
04 00086 RET : 0555 
3; Routine Size: 135 bytes, Routine Base: S$CODE$S + 0128 


| 16 
SCANF ILE 1 $ep-1984 23:36:57 AX=11 Bliss-32 V4.0-74 
voe~000 14-Sep-1984 #7338: 3 BADBLK.SRC SCANI E.B o783351 


: 564 05 § 1 ROUTINE GROUP_BLOCKTEST= 

s 565 05 1 

; 208 82 8 1 lee 

; 344 8228 } FUNCTIONAL DESCRIPTION: 

: 569 0561 1! ROUTINE TESTS GROUPS “% VIRTUALLY CONTIGUOUS BLOCKS FOR 
: 570 0266 1! *“‘BADNESS'’. SHOULD ANY OF THE IO OPERATI A 
; $71 563 1! THE STATUS IS IMMEDIATELY RETURNED. GROUPS ARE READ 
3 Ae: 0564 1! SEVERAL TIMES FOR ERROR 

: S$? 0565 1! WORST CASE IS WRITTEN TO THE GROUP AND THEN READ BACK. 
; er 0368 ! THE READ DATA IS COMPARED WITH THAT WRITTEN 

: 576 0568 1 ! FORMAL PARAMETERS: 

s S77 0569 1! 

; 578 0570 1! NONE 

; S79 0571 1! 

: 580 0376 1 ! IMPLICIT INPUTS: 

; 581 0573 1! 

3 286 0574 1! STARTING BLOCK: FIRST VIRTUAL BLOCK IN GROUP 
3 38? B37? : LAST_BLOCK: LAST VIRTUAL BLOCK IN GROUP 

; 585 0577 1°! IMPLICIT OUTPUTS: 

; 586 0578 1! 

; 587 0579 1! NONE 

; 588 0580 1! 

; 589 0581 1 ! ROUTINE VALUE: 

; 590 bees 1 ! COMPLETION CODES: 

; 591 0583 1! 

: 592 0584 1! NONE 

: 593 0585 1! 

> 594 0586 1 ! SIDE EFFECTS: 

; 595 0587 1! 

; 596 0588 1! NONE 

; 597 0589 1! 

; 598 0590 1 !-- 

; 599 0591 +1 

; 600 3286 2 BEGIN 

; 601 0593 2 

: 602 0594 CAL 

3; 603 0595 CURRENT_SIZE, 

3: 604 0596 STATUS; 

; 605 0597 

; 606 0598 

: 607 0599 

3; 608 0600 FOR SHORT FILES OR FOR THE START OF A FILE, GROUP SIZE MAY BE SHORTER 
3; 609 0601 'THAN THE DEFAULT 

: 610 060 

; 611 060 

3 61¢ 0604 ~STARTING_BLOCK EQL 1 

s 61 0605 

3 614 8606 CURRENT_SIZE=.LAST_BLOCK*512 

3 615 60 

: 616 0608 CURRENT_SIZE=GROUP_SIZE; 

3; 617 0609 'e 

3 ol8 3619 'DEFAULT THAT FAILURES WILL NOT BE DATA SENSITIVE 

: 620 0612 READ_FAIL=FALSE; 


| 16 
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: 621 0613 

s; ¢ ¢ 0614 '® 

s 6 0615 'GROUP FAILURE MAY BE DATA SENSITIVE 

3 ? ¢ $218 'READ SEVERAL TIMES BEFORE PASSING TO WRITE/READ TESTING 

; ° ° gels INCR TEST_INDEX FROM 1 TO TRIALS_TO_SUC DO 

; e 3 Oe — (STATUS=D0_Q10W(10$_READVBLK+10$M_INHRETRY,DISK_TEXT,.CURRENT_SIZE,.STARTING_BLOCK,0,0)) 
; 6350 06 ¢ BEGIN 

3 65) 06 READ_FAIL=TRUE; 

3; ¢$ § +9 4 RETURN .STATUS 

3; 6 625 END; 

; 634 0626 'e 

: 655 0627 'GROUP MUST PASS WRITE/READ TEST MULTIPLE TIMES BEFORE 

3 $36 be 3 'BEING CONSIDERED GOOD 

: 638 0630 INCR_ TEST_INDEX FROM 1 TO TRIALS_TO_SUC DO 

; 639 0631 BEGIN 

3; 640 bess '® 

3 641 063 ‘WRITE TO THE INDICATED DISK BLOCK 

: 8g be3s 

: oe boxe 3 NOT (STATUS=D0_Q10W(10$_WRITEVBLK+I0$M_INHRETRY,GROUP_TEST_DATA, .CURRENT_SIZE,.STARTING_BLOCK 
3; 646 0638 ; RETURN .STATUS; 

3: 647 0639 

: 64 0640 3 '® 

: 649 0641 ; 'TRY AND READ IT BACK 

: 82? oees 3 F 

: $36 Rees 3 ylOtCSTATUS=D0_Q10W(10$_READVBLK+10$M_INHRETRY .DISK_TEXT,.CURRENT_SIZE,.STARTING_BLOCK.0.0)) 
3; 654 0646 3 RETURN .STATUS; 

; 655 0647 3 

3; 656 0648 3 

3; 657 0649 3 'e 

: 658 0650 3 'MAKE SURE ITS THE SAME 

3; 659 0651 3 

; 660 8636 3 

; yt beta 3 CHSNEQ(. CURRENT _SIZE,GROUP_TEST_DATA,.CURRENT_SIZE,DISK_TEXT) 
3 $68 0655 ; RETURN SS$_PARITY | 

3: 664 Bo28 END; 

3: 665 065 

: 666 0658 RETURN TRUE 

; 667 0659 

; 668 0660 1 END; 


01FC 00000 ane cee) ee 
58 9000y CF 9E 0000 MOVAB DO 
000' CF 9€ 0000 MOVAB ST 


2,R3,R4,R5,R6,R7.RB ; 0556 
*) . 
NG_BLOCK, R7 : 


tC CLL CC CL CC — 
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So0n000 12-Sep-19 4 $9336: 3 EBADBLK-SRe SCANE Tie .03951 . (3) 
01 7 p1 0000¢ CMPL § STARTING_BLOCK, #1 : 0604 
7 1 OOF BNE - : 
54 04 A? ? rs on ASHL #9, LAST_BLOCK, CURRENT_SIZE + 0606 
54 1600 8F 3¢ $8 1$: MOVZWL #7680, CURRENT_SIZE + 0608 
| ee aS: ee ce : $626 
75 oe 00023 3$: CLRO2Os«=( SP) * : 
$ DD 00025 PUSHL STARTING_BLOCK ; 
4 DD 00027 PUSHL CURRENT SIZE : 
C3F4 C7 3 00 9 PUSHAB D1 Sk TERT : 
7 8031 8F 3¢ 00 MOVZWL #32877, -(SP) : 
6 06 FB 000 ALLS #6, DO : 
56 50 D0 0003 RO, STATUS : 
06 56 £8 00038 BLBS STATUS, 4$ : 
FG OA? 01 00 00038 MOVL #1, READ_FAIL + 0623 
37 11 0003F BRB 6$ + 0624 
DE 52 03 F3 00041 4$: AOBLEQ #3, TEST_INDEX, 3$ t 0619 
55 01 0 00045 MOVL #1, TEST-INDEX t 0630 
7E 7C 00048 5$: -(§P) > 0636 
67 DD 0004A PUSHL  STARTING_BLOCK F 
54 DD 0004C PUSHL CURRENT $1Z : 
E1F4 C7 9F 0004 PUSHAB GROUP_TEST_DATA ; 
7E 8030 8F 3C 0005 MOVZWL #32816, -(5 : 
68 06 FB 0005 CALLS #6, DO : 
56 50 D0 0005A MOVL RO, STATUS : 
18 55 5 00050 BLBC STATUS, 6$ j 
7E C 00060 CLRQ -(SP : 0644 
67 DD 00062 PUSHL STARTING BLOCK 2 
54 DD 00064 PUSHL CURRENT SIZE : 
C3F4 C7 9F 00066 PUSHAB DISK 3 
7E 8031 8F 3C 0006A MOVZWL #32877, -(SP) F 
68 06 FB 0006F CALLS #6, : 
56 50 00 90072 MOVL RO. STATUS ; 
04 56 £8 0007 BLBS STATUS, 7$ ; 
50 56 BO 00078 6$: MOVL STATUS, RO > 0646 
C3F4 «C7 E1F4 (C7 54 29 doore 7$: CMPC3 CURRENT_SIZE, GROUP_TEST_DATA, DISK_TEXT ; 0653 
06 13 00084 BEQL F 
50 01F4 8F 3C 00086 MOVZWL #500, RO > 0655 
04 00088 RET : 
B8 55 03 F3 O008C 8$: AOBLEQ #3, TEST_INDEX, 5$ : 065 
50 01 pd 00090 MOVL #1. RO > 065 
04 00093 RET > 0660 


; Routine Size: 148 bytes, Routine Base: S$CODE$ + O1AF 


——_—— 
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FH 670 86 } ROUTINE DO_QIOW(FUNCTION,P1,P2,P3,P4,P5)= 

; ore dees 1 tee 

; 67 664 1 ! FUNCTIONAL DESCRIPTION: 

3: 674 0665 1! 

3 of? gee : COMMON ROUTINE FOR PERFORMING S$Q10W SYSTEM SERVICE 
3; 677 668 1 ! FORMAL PARAMETERS: 

; 678 0669 1! 

; 679 0670 1! hae THE Q]0W FUNCTION CODE 

; 680 0671 1! Pi: THE ADDRESS OF THE P1 PARAMETER 
3; 681 067 1! Pe: THE ADDRESS OF THE Ps PARAMETER 
s © ¢ 067 1! PS: THE ADDRESS OF THE PS PARAMETER 
; 68 0674 1! Pd: THE ADDRESS OF THE P4 PARAMETER 
3: 684 0675 1! 

; 685 bere : IMPLICIT INPUTS: 

3; 687 0678 1! CHANNEL: ’ THE CHANNEL oes TO THE FILES ACP 
; 688 0679 1! 10SB: THE IO STATUS BLOCK 

: 689 680 1! 

; 690 681 1 ! IMPLICIT OUTPUTS: 

; 691 0682 1! 

; 69 0683 1! NONE 

; 69 684 1! 

; 694 685 1 ! ROUTINE VALUE: 

3; 695 0686 1 ! COMPLETION CODES: 

: 69 0687 1! ° 

; 69 0688 1! RETURNS THE SYSTEM SERVICE CODE FOR THE $Q10W 
: 698 0689 1 

: 699 0690 1! 

; 700 0691 1 ! SIDE EFFECTS: 

; 701 069 73 

: 702 069 1! NONE 

3; 703 0694 1! 

3; 704 0695 1 !-- 

s 705 0696 1 

: 706 0697 2 BEGIN 

; 707 0698 2 LOCAL 

; 708 06 STATUS; 

: 709 0700 '® 

; 710 0701 ipO Q@10W AND CHECK 10 SERVICE dnc 

s 711 0702 2 

: 712 070 

s 715 P 4484 NOT eet tien CHANNEL , 1OSB=10SB, 
; 714 P 0705 FUNC=.FUNCTION, 

s 715 P 0706 P1=.Pi, 

: 716 P 0707 PSs: 

.. wee P 0708 P5=.P5, 

; 718 P th P4=.P 

: 719 710 P5=, PSS) 

: 720 711 THEN 

s fei te RETURN .STATUS; 

: 156 71 

. £ 714 'e 

: 724 715 'CHECK 10 COMPLETION RETURN 

: 725 re 

3; 726 071 IF 


-———— 


see 


s fer 071 

ie 

: 730 721 

f a 

: 438 0782 Eno; 


3 Routine Size: 55 bytes, 


4 16 
=1984 23:36: 
2r8e8- 198s F286: 
\NoT 108003 
RETURN .10SBC0) 


ELSE 
RETURN TRUE 


-EXTRN 
0004 00000 DO_Q10W: .WORD 
52 0000" cr 9E ai MOVAB 
E 04 0000 CLRL 
7E 14 AC 7D 00009 MOVQ 
7E OC AC 7D 00000 MOva 
08 AC DD 00011. PUSHL 
7E 7C 00014 CLRQ 
52 DD 00016 PUSHL 
04 AC DD 00018 PUSHL 
7E 0000G CF 3C 0001B MOVZWL 
7E 04 00020 . CLRL 
000000006 00 OC FB 00022 CALLS 
OA 50 €9 00029 BLBC 
04 62 58 0002C BLBS 
50 62 3C 0002F MOVZWL 
04 00032 RET 
50 01 D0 00035 1$: MOVL 
04 00036 2$: RET 


Routine Base: $CODE$S + 0243 


7 AX-11 Bliss-32 V4.0- oss. 
3 BADBLK.SRC SCANF I ILE.B32;1 


SYS$Q10W 
faye R2 
10S8, R2 
=(SP5 
P4, =(SP) 
Pe. -(SP) 
P1 
-(SP) 

2 


R 

FUNCTION 

CHANNEL, -(SP) 
=(SP) 


#12, SYS$Q10W 
STATUS, 2$ 
1088, {$ 
10SB, RO 


» RO 


roe 


0661 
0710 


1 | 
SCANF ILE 18-se -1984 23:36:57 AX-11 Bliss-32 V4.0-74 Page 23 
vO4~ Va-$ep-1984 11:56:35 EBADBLK SRE SSCANF Ice .0395 1 sate 
3 75 0725 1 GLOBAL ROUTINE DATA_INIT:NOVALUE= 
: 36 £36 
cs 0727 1 14+ 
: 738 0728 1 | FUNCTIONAL DESCRIPTION: 
: 740 oreo | INITIALIZES TEST BLOCKS WITH THE WORST CASE PATTERN 
: 24 O73¢ 1 | FORMAL PARAMETERS: 
; 76 0733 1} 
> 744 0734 1 | NONE 
; 745 0735 1 
i 246 O736 1 | IMPLICIT INPUTS: 
3. 7 7 1! 
: 748 O7s8 | GROUP_TEST_DATA: BUFFER USED TO WRITE GROUPS OF BLOCKS | 
: 750 0740 1! IMPLICIT OUTPUTS: 
; 751 0741 1 
: 238 Ore NONE 
; £5 0743 1} 
: 754 0744 1 ' ROUTINE VALUE: 
; 755 0745 1 } COMPLETION CODES: 
3 756 0746 1 } 
: 757 0747 1 | NONE 
; 758 0748 1 | 
: 759 0749 1 ! SIDE EFFECTS: 
: 760 0750 1 | 
: 761 0751 1 NONE 
: 762 O72. 1 | 
: 763 0753 1 i- 
> 764 0754 1 
; 765 0755 2 BEGIN 
> 766 0756 2 REGISTER 
: 767 0757 POINTER, | 
: 768 0738 g |  eEND.POINTER: | 
; 769 0759 2 LITERAL 
: 770 0760 2 © WORST_CASE_PAT=%0'165555'*16+%0'133333'; | 
: 771 0761 | 
3 Ie Oree § fee | 
3 ¢T3 076 ‘INIT POINTERS TO BUFFER | 
> 77% 0764 
3 775 0765 POINTER=GROUP_TEST_DATALO | 
: 776 0766 END_POINTER= (GROUP RITE =45 + POINTER: | 
; 77? 0767 
: 778 0768 2 !* 
44 0769 ¢ IFILL BUFFER WITH WORST CASE PATTERN 
: 781 0771 WHILE .POINTER NEQU .END_POINTER DO 
: 78 Or7e BEGIN 
: 78 077 -POINTER=WORST CASE_PAT; 
> 784 0774 POINTER=.POINTER+4 
> 785 O77> 2 END; 
: 786 0776 | . 
: 787 0777 RETURN 
> 788 0778 
: 789 0779 
; 790 0780 END; 


SCANF ILE 
v04-000 


Routine Size: 


0000 00000 

50 0000' CF 9€ 0000 
51 Q1E0 CO 9E 00007 
51 50 Di 0000C 
09 13 Q000F 

80 EB6DB6DB =8F D0 00011 
F2 11 00018 

04 OOO1A 2$: 


27 bytes, Routine Base: S$CODE$S + 027A 


: 4 VAX-11 Bliss-32 V4.0-742 


CBADBLK.SRCIJSCANF ILE .B832;1 


DATA_INIT, Save "POINT 
GROUP TEST_DATA, POINTER 
480(R0), END_POIN 

POINTER, END -POINTER 


cooenstaene (POINTER) + 


Page 24 
(11) 


SANG 


NOUS WR 


~o 
ONAULS WOO 


pee ww ew ol ololololeoleloleleololola) 


co 
Oo 
oO 


A.A. AIA RIPON PUPUPININIR 2 St sw 4 
WR —O OBNOUEWN —“OVOONOUFWR—OOoOn 


‘Gd Od CD Od OD Cd Cd Gd Cd Od Od Cd Od OD OD Od Cd OD 0D OD OD Cd OD 0D 0D CD 0D OD CD CD 
“ 


Www 
SRIF IF IPIAPIP IIIA IAIN INIA a nt si a dh oh dd 


FF 


COOOWNO VEN —OOONOUSWN—O 


0.09 09 09 00 Gp 0d 00 Co 00 00 G9 00 C9 C0 CD CD CO CD CD 
WARP NPoNPoNINn Oe ae 


COOCCOCOOCOCOOCOOCOoOOoOoOSoooO 


—OO0eon 


13. se-1984 $3: 36: 7 AX-11 Bliss-32 V 


14-Sep-1984 11: 


ROUTINE CHECK_BADSTATUS(STATUS)= 
144 


FUNCTIONAL DESCRIPTION: 


ROUT INE 1CHASSIEYS | THE SYSTEM SERVICE CODES THAT IT RECEIVES 
AS INPUT INTO 3 CATAGORIES 
"WOR MAL st oH SS$_NORMA 
BAD_STS: DEVICE ERRO oR INDICATING A apie BLOCK 
ERROR_STS: UNRECOVERABLE DEVICE ERR 


' 

' 

' 

! 

' 

! 

i FORMAL PARAMETERS: 

STATUS: A SYSTEM SERVICE CODE 
{ IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 

NONE 

i 
‘ 
' 
' 
i] 
! 
' 
' 
' 
! 
' 


i ROUTINE VALUE: 
i COMPLETION CODES: 
i RETURN 


NS AS A VALUE ON OF THE 3 ABOVE MENTIONED CODES 
NORMAL _ST § ERROR. STS ,BAD_STS 
NONE 
i SIDE EFFECTS: 
NONE 


‘POSSIBLE I0 CODES ARE DIVIDED INTO THREE CASES 
!GOOD BLOCKS,BAD BLOCKS AND SEVERE DEVICE ERRORS 


SELECTONE . ~STATUS OF 
SS$ -NORAAL J: RETURN NORMAL_STS; 
sss erarit 

5 SRVERRI RETURN BAD_STS; 
COTHERWISE J: :RETURN ERROR_STS 
END: 


0000 00000 CHECK_BADSTATUS: 
«WORD Save nothing 


4:33 BADBLK.SRC SCAN 


—_—_—__ 


NST w ~ 
mcm N Nn OPM 
a0 oO o wo 
oo oOo o oo 
®e rte te *e *e tate tea te te te te te te #6 
Oo 
fe 
o oS 

. Tr ws SO 
ne o-wo oOo 
o& z= 2= 2® & «= 
qe . . = s . 
-OFO OCOMOHKMOSON — 
Nara Senuraevams a 


MOC DOOwWMEWOrR-AVOB0O 
COOOCCCO ee KK NNNICCIM 
SOoooooooocooocoo 
Sooooooooooooooo 
Ooocooocooooooooo 


Sew TOM Me VOTO 
aao- O0Ca- a O- OOOO 
vromMo owooco rn -— 
“NOW MNe-MOMOO oO 


w 
Oo 


o- 
Mo 


8F 
8F 
8F 
50 
50 


SCODES + 0295 


00000054 


0000008C 


000001F4 


; Routine Size: 


| 
ee 


Routine Base: 


49 bytes, 


Be Be ee Oe Be Be Se Oe Se Se Be Be Se Se Ge Se Se Se Ge Se Se Ge Se Se Ge Ge Gs Ge Ge Se Se Se Ge Se Se Ge Se Se Se Se Se Se Ge Se Se Ge Se Ge Se Se Se Se Se Se Se Seas 


Suh 


@ Cd CO Cd Cd CD 00 CD CD CD CD CD CO CD CD. 
HPAAAA AAI & & 
SOOWONAOUESWN OC OOnND 


eee fee ele ole lo lolol ele lelelolololololololololololo) 
‘09 C9 Cd Od Od C9 C9 OO CD CD OD OD OS OS CO CO OD OD C0 Cd CD CD CO Cd CO CD CO CD CD CD 
PPPS Ss Be Be BS BB BE EE EWI 
SOOWONAO VES WN OOO VNOUES WN" O OONOUE Wn — 


0861 


087 


SOoOoOoOooOooOoOooooOo 
©2000 G0 00 09 00 00 INI 
NOUS WMO OOnNG 


AAO PIPIPIPUPINIPD HAWAII IPP PIPPIN) 8 2 = SS Ss YS SS SS SS SS 


“1984 11:56:35  EBADBLK-SReSSCANF ILE 050; 1 


ROUTINE NORMAL _COMPLETE :NOVALUE= 


'e¢ 


FUNCTIONAL DESCRIPTION: 
CALLED AFTER ENTIRE FI 
RETURNED TO THE VOLUME 

FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

FIB: FILE IDENTIFICATION OF CURRENT FILE 

IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


SCANNED FOR BAD BLOCKS 
AND SHOULD 
LETED AND DEACCESSED 


iTRUNCATE ANY OF THE FILE THAT REMAINS 


a etthdemamaitiiabtei 
ts STATUS NEQ SS$_NORMAL) AND 
(.STATUS NEQ SSS$_~ENDOFF ILE) 
BEGIN 
ERROR COMPLETE(); 
RETURN 
END; 


iDELETE THE FILE 


F 
oo DO_Q10W(10$_DELETE+1O$M_DELETE .F IB_DESC,0,0,0,0) 


BEGIN 
ERROR_COMPLETE(); 


$$$ 


pone 8S 


1 
SCANF ILE 1$-se -1984 23:36:57 AX-11 Bliss-32 V4.0-74 Page 28 
W6er000 12-Sep-19 4 $7 30:3 LBADBLK’SRe Scant Tie.635;1 . 1% 
RETURN 
END; 
'® 
'DEACCESS THE FILE 
DO_Q10W( 1O$_DEACCESS,FIB_DESC,0,0,0,0); 


RETURN 
1 END; 


SeGe ee Gee Ge ows ee in 
lofelolelelelolelelo) 
NOU SW OOO 


0000 00000 NORMAL _COMPLETE: 
. WORD 


Save nothing ; 0831 
01 Dd 00002 PUSHL #1 ; 0870 
FDDA CF 01 FB 00004 CALLS #1, TRUNCATE : 
01 50 D1 00009 CMPL STATUS, #1 ; 0872 
09 13 0000C BEQL 1$ : 
00000870 = &F 50 Di 0000 CMPL STATUS, #2160 3; 0873 
15 12 0001 BNEQ 2s 3 
7E 7C 00017 1$: CLRQ -(SP) : 0884 
7E 7C 00019 CLRQ -(SP) $ 
0000° CF 9F 0001B PUSHAB FIB_DESC é 
7E 0135 8F 3C OOO1F MOVZ2WL #309, -(SP) : 
FFS4 =F 06 FB 00024 CALLS #6, DO_QI0W 3 | 
06 50 €8 00029 BLBS RO, 3$ : 
0000v CF 00 FB poet 2s: CALLS #0, ERROR_COMPLETE ; 0887, 
04 00031 RET ; 0886. 
7E 7C 00032 3$: CLRQ -(SP) 3 0894 | 
7E 7C 00034 CLRQ -(SP) : 
0000" CF 9F 00036 PUSHAB FIB_DESC 3 
34 DD OOO3A PUSHL # 3 
FF3C CF 06 FB 0003C CALLS #6, DO_O10W é | 
04 00041 RET ; 0897 | 


; Routine Size: 66 bytes, Routine Base: S$CODE$S + 02(6 


H 1 
SCANF ILE 15-Sep-1984 23:36:57 AX-11 Bliss-32 V4. 
yoe~000 12-80-1984 43:36:32 EBADBLK’SRe SCANF I 
g gt} 089 ] ROUTINE ERROR_COMPLETE :NOVALUE= 
; 338 90 1 !e¢ 
3 ate : FUNCTIONAL DESCRIPTION: 
3 38 0308 4 CALLED WHEN A FATAL DEVICE ERROR OR SYSTEM SERVICE ERROR 
i3 ais ape : IS ENCOUNTERED DURING PROCESSING. THE CURRENT FILE IS DEACCESSED 
3 «919 0306 1 ! FORMAL PARAMETERS: 
; 920 0907 1! 
js 9¢) 0908 1! NONE 
is 9 ¢ 0909 1! 
; 9 0910 1 =! IMPLICIT INPUTS: 
i; 926 0911 1! 
is 925 O3¢ 1! NONE 
i; 926 0913 1! 
ls 927 0914 1 ! IMPLICIT OUTPUTS: 
: 928 0915 1! 
3 368 0916 1! NONE 
; 930 0917 1! 
i; 931 0918 1 ! ROUTINE VALUE: 
: 838 0919 1 ! COMPLETION CODES: 
5° Os 0920 1! 
; 934 0921 1! NONE 
is 935 09 ¢ 2 
3 936 09 1 ! SIDE EFFECTS: 
; 937 0924 1! 
1s 938 0925 1! NONE 
3; 939 0926 1! 
: 940 0927 1 !<- 
13 961 0928 #1 
; 94 3494 BEGIN 
; 94 0930 
3 944 0931 'e 
3 945 a4 4 'DEACCESS THE FILE 
: 946 093 
; 9647 0934 2 DO_Q10W( 10$_DEACCESS,FIB_DESC,0,0,0,0); 
: 948 0935 2 
; 949 0936 § 
; 950 0937 RETURN 
3; 951 0938 1 END; 
0000 00000 ERROR_COMPLETE: $ 
-WORD Save nothing 
7E 7C 00002 CLRQ -(SP) 
7C 00004 CLRQ -(SP) 
0000° gf oy 4444 PUSHAB FIB_DESC 
DD OO00A PUSHL # 
FF2A CF 06 FB 0000C CALLS #6, DO_Q10W 
04 00011 ET 


£ Routine Size: 18 bytes, Routine Base: 


SCODES + 0308 


0 
LE 


-7 
8 


$3.1 


Page 29 


(14) 


0938 


30 


(14) 


Page 


ered, Oi iegere Fe ae 
BADBLK.SRCJSCANF ILE .832;1 


“VO4"000" 


1 
SCAN ILE 1BaSep-1984 28:56:57 yAN=11 BLing-82 v4 00763 


; 933 0939 1 ROUTINE GROUP_RETURN= 
3; 9546 940 1 !e4 
; 955 941 1 ! FUNCTIONAL DESCRIPTION: 
8 828 94 13 
le 95 94 1 i 
3; 958 944 1: CALLED WHEN A BAD BLOCK ERROR IS ENCOUNTERED ey 
; 959 945 1 GROUP BLOCK TESTING. THE INDIVIDUAL BLOCKS IN A GROUP 
'; 960 946 1! ARE TESTED FOR ‘‘BADNESS'’ AND TRUNCATED OFF THE CURRENT 
; 961 947 1! FILE AND INTO THE BAD BLOCK FILE WHEN FOUND 
is 966 0948 1 | FORMAL PARAMETERS: 
is % 0949 1: 
3 «6966 0950 1: NONE 
13 965 0951 1 
'3 6966 0952 1! IMPLICIT INPUTS: 
|; 967 0953 1: 
'3 968 0954 1 STARTING BLOCK: FIRST BLOCK IN GROUP 
; 969 0955 1! LAST_BLOCK: LAST BLOCK IN GROUP 
; 970 9328 1! 
i; 971 0957 1! IMPLICIT OUTPUTS: 
iz 378 0958 1: 
; 97 0959 1: NONE 
; 976 0960 1! 
s 975 0961 1 ! ROUTINE VALUE: 
'3; 976 0962 1 ! COMPLETION CODES: 
'3; 977 0963 1: 
'3; 978 0964 1! NONE 
‘3 979 0965 1: 
3; 980 0966 1 | SIDE EFFECTS: 
i; 981 0967 1: 
i; 98 0968 1! NONE 
; 98 0969 1! 
; 984 0970 1 i-- 
: 985 0971 1 
; 986 097 § BEGIN 
; 987 097 LOCAL 
s 0974 VBN; 
; 989 0975 
3; 990 0976 '@ 
3 991 0977 ‘INDIVIDUALLY CONSIDER ALL BLOCKS IN THE GROUP 
5 338 0978 'RETURN EACH TO THE BADBLOCK FILE OR FREE SPACE 
: 994 0980 VBN=.LAST BLOCK; 
: 995 0981 WHILE TRUE DO 
3 996 09 BEGIN 
; 99 09 
; 998 0984 CASE CHECK_BADSTATUS (BLOCKTEST(.VBN)) 
i; 999 0985 FROM NORMAL_STS TO BAD_STS OF 
/ 1000 98 SET 
1001 98 
: 1008 0988 CNORMAL_STSJ: TRUNC_BLOCK=.VBN; 
; 100 $434 
3 1004 CERROR_STS):RETURN FALSE; 
: 1005 991 
; 1006 99 CBAD_STSJ: TRUNCATE_BAD(.VBN); 
; 100 2") 
; 1008 994 TES; 
: 1009 0995 VBN=. TRUNC_BLOCK=1; 


i i - ———— 


roe 


satus 


; 1010 
5 \3i3 
is 1 \¢ 
'3 101 
: 1014 
3 1015 
3 1016 


; Routine Size: 


36:37 


396 
99 
998 
999 
1000 EN 
1001 
1002 1 END; 
02 
O00E 
52 


1 
13-Sep-1984 23 


.VBN LSS .STARTING_BLOCK 
RETURN TRUE 


000C 00000 GROUP_RETURN: 
WORD 


WO 
53 0000" CF 9E 0000 MOVAB 

52 0c A3 00 0000 OVL 
52 DD 00008 1$ PUSHL 
FOFC =CF 01 FB 0000D ALLS 
90 DD 00012 PUSHL 
FF62 = CCF 01 FB 00014 CALLS 
00 50 CF 00019 CASEL 
0008 0006 0001D 2$ «WORD 

63 52 00 00023 3$ MOVL 

OA 11 00026 BRB 

50 04 00028 4$ CLRL 

04 0002A RET 
52 DD 00028 5$ PUSHL 
FD8B- CCF 01 FB bongs CALLS 
63 01 C3 00032 6$ SUBL3 

08 AS 52 D1 00036 CMPL 
CF 18 QO03A BGEQ 

50 01 DO 0003C MOVL 

04 0003F RET 


Routine Base: S$CODE$S + 031A 


AX-11 Bliss-32 V te oes. 
BADBLK.SRCJSC ANF I 31 


Save R2,R3 
TRUNC BLOCK, R3 
LAST. BLOCK, VBN 


V 

#1, BLOCKTEST 
#1, CHECK BADSTATUS 
RO #2 


4$-2$,- 

5$-2$ 

VBN, TRUNC_BLOCK 

6$ 

RO 

VBN 

#1, TRUNCATE_BAD 

#1. TRUNC BLOCK, VBN 

1s STARTING “BLOCK 
, RO 


roe 


Pete Se Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Se Fe Ge Fe Ge Ge Ge Be 


; 1020 1003 1 END 
; 1021 1000 0 ELUDOM 


sent 


SOWNS 
SPLITS 
SCODES 


File 
~-$255$DUA28: CSYSLIBILIB.L32;1 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SCANFILE/OBJ=OBJ$:SCANFILE MSRC$:SCANFILE/UPDATE=(ENHS: SCANF ILE) 


Size: 
Run Time: 
Elapsed Time: 
Lines/CPU Min: 
See ll gay 
poneey Used: 91 pages 
ation Complete 


858 code + 15484 


1$-sep-19 4 
14-Sep-1984 


‘End of module 


PSECT SUMMARY 


Bytes 
15476 moves WRT, 
- C,NOWRT, 
85 NOVEE »NOWRT, 


Library Statistics 


~Semperias =~ Symbo 


Total ipod 


18619 


COMMAND QUALIFIERS 


data bytes 


ed 
27 


Attributes 
RD ,NOEXE,NOSHR, 


»NOEXE ,NOSHR, 
EXE ,NOSHR, 


(g enccesse 


Percent 
0 


AX-11 Bliss-32 V 
BADBLK.SRC SCANF I 


a HF:50:8 


tit.o%3;1 


LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, (CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 


Pages Processing 
Mapped Time 
1000 00:01.8 


Page 33 
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001 AH-BT13A-SE EQUIPMENT CORPORATION 


VAX/VMS V4.0 NTIAL AND PROPRIETARY 


~AH-BT13A-SE IP 


D019 BY BT13A- SE. ENT CORPORATION 


ND_ PROPRIETARY 


M 
A 


